Digitální fotografie a video/Digitalni-fotografie-a-video-covermount.bin/Aplikace/DF/Kap_2/Df_2_2.dxr/00099_Najezd skener.ls

Text File | 1998-05-19 | 717 b | 35 lines

property MemberText

on getPropertyDescriptionList
  set description to [:]
  addProp(description, #MemberText, [#comment: "MemberText:", #format: #richText, #default: EMPTY])
  return description
end

on getBehaviorDescription
  return "Nájezd a klik"
end

on beginSprite me
  set the blend of sprite the spriteNum of me to 0
end

on endSprite me
end

on mouseEnter me
  puppetSound(1, "Najezd_otazky")
  set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
  set the blend of sprite the spriteNum of me to 100
  updateStage()
end

on mouseLeave me
  set the blend of sprite the spriteNum of me to 0
end

on mouseDown me
  set the member of sprite 11 to MemberText
  updateStage()
end